100 CALL CLEAR
110 CALL SCREEN(2)
120 RANDOMIZE
130 CALL CHAR(107,"00")
140 A$="00F8A4FF996600"
150 CALL CHAR(35,"00FFFFFFFFFFFF00")
160 CALL CHAR(80,"0000182018042418")
170 CALL CHAR(81,"0000619282829261")
180 CALL CHAR(82,"00008E494E494989")
190 CALL CHAR(83,"00003C203C20203C")
200 CALL COLOR(7,11,1)
210 CALL CHAR(72,"7E7E607E7E606060")
220 CALL CHAR(73,"7E7E667E7E6C6666")
230 CALL CHAR(74,"7E7E666666667E7E")
240 CALL CHAR(75,"7E7E606E6E667E7E")
250 CALL CHAR(37,"007F7F7F7F7F7F00")
260 CALL COLOR(6,15,1)
270 CALL CHAR(40,"997E5A7E3C247E99")
280 CALL CHAR(41,"00423C18183C42")
290 CALL CHAR(45,"00002418182400")
300 CALL CHAR(65,"1C3424FFFFFFFF3F")
310 CALL CHAR(66,"0E3BFFD2400929FF")
320 CALL CHAR(67,"00000006FFAB55FE")
330 CALL CHAR(61,"1818181818181818")
340 CALL CHAR(62,"FCFCFCFCFCFCFCFC")
350 CALL CHAR(63,"3F3F3F3F3F3F3F3F")
360 CALL COLOR(3,3,2)
370 CALL COLOR(5,11,2)
380 CALL COLOR(8,15,2)
390 CALL CHAR(91,"0000060909070603")
400 CALL CHAR(92,"0000609090E060C0")
410 CALL CHAR(93,"0F1F3B37371B0B3D")
420 CALL CHAR(94,"F0F8DCECECD8D0BC")
430 CALL COLOR(1,10,2)
440 CALL CHAR(146,"0")
450 CALL CHAR(122,"0")
460 CALL CHAR(58,"FFFEFCF8F0E0C080")
470 CALL CHAR(76,"6060606060607E7E")
480 CALL CHAR(77,"7E7E667E7E667E7E")
490 CALL CHAR(78,"7E7E607E7E607E7E")
500 CALL CHAR(79,"66767E7E6E666666")
510 CALL CHAR(88,"7E7E181818181818")
520 CALL CHAR(89,"7E7E66667E7E6666")
530 CALL CHAR(106,"0")
540 CALL CHAR(59,"FF7F3F1F0F070301")
550 FOR K=96 TO 120 STEP 8
560 CALL CHAR(K,A$)
570 CALL COLOR((K-24)/8,2,2)
580 NEXT K
590 CALL COLOR(9,11,2)
600 A$="10181C1E10FF7F3E"
610 CALL CHAR(42,"245A7E247EBDA566")
620 CALL CHAR(43,"99DB7E3C7E7E24E7")
630 CALL COLOR(2,4,2)
640 FOR K=128 TO 152 STEP 8
650 CALL CHAR(K,A$)
660 CALL COLOR((K-24)/8,8,8)
670 NEXT K
680 CALL COLOR(14,2,8)
690 CALL CHAR(60,"FFFFFFFFFFFFFFFF")
700 CALL COLOR(4,3,2)
710 CALL CLEAR
720 CALL SCREEN(2)
730 PRINT "          ""HIJK""  ": : : : : :"        L MINOXYIJ": : : :"         [\ [\ [\":"        *]^*]^*]^*": : : :
731 PRINT "        PQRS";P: : :
740 FOR K=3 TO 30
750 CALL HCHAR(18,K-1,32,2)
760 CALL HCHAR(18,K,65)
770 CALL HCHAR(18,K+1,66)
780 CALL SOUND(10,-5,29)
790 CALL HCHAR(18,K+1,67)
800 CALL SOUND(10,-6,1)
810 NEXT K
820 CALL HCHAR(18,30,32,4)
830 CALL SOUND(1000,440,10,534,10,659,10)
840 CALL CLEAR
850 P=0
860 SC=0
870 J=0
880 Z=7
890 CALL VCHAR(1,1,31,48)
900 CALL VCHAR(1,31,31,48)
910 CALL SCREEN(13)
920 PRINT "<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>  =  =  =  =  =  =  ?<<<<<<>jk=jk=jk=jk=jk=jk=jk?<<<"
930 PRINT "<<:zzzzzzzzzzzzzzzzzzzzzz;<<"
940 PRINT "<<<<"
950 FOR K=1 TO 3
960 PRINT "<<<<<<<<"
970 NEXT K
980 PRINT "<<<<<<zzzzzzzzzzzzzzzzzzzzzzzz<<"
990 FOR K=1 TO 3
1000 PRINT "<<`hpx`hpx`hpx`hpx`hpx`hpx<<<<px`hpx`hpx`hpx`hpx`hpx`h<<"
1010 NEXT K
1020 PRINT "<<zzzzzzzzzzzzzzzzzzzzzzzz<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<%#######################<<"
1030 PRINT "<<<<<<<<<<<<<<<<<<<<<<<<<<<<"
1040 SC=SC+1
1050 CALL HCHAR(24,3,60,28)
1060 TI=24*4+17
1070 FOR K=10 TO 12
1080 CALL COLOR(K,2,2)
1090 CALL COLOR(K+4,8,8)
1100 NEXT K
1110 CALL COLOR(2,4,2)
1120 CALL COLOR(9,11,2)
1130 CALL COLOR(13,2,8)
1140 IF SC>2 THEN 1150 ELSE 1250
1150 B=INT(RND*7)+1
1160 B=(B*3)+4
1170 IF J=6 THEN 1250
1180 CALL GCHAR(3,B,K)
1190 IF K<>106 THEN 1150
1200 CALL HCHAR(3,B,65)
1210 CALL HCHAR(3,B+1,66)
1220 CALL HCHAR(3,Z,106)
1230 CALL HCHAR(3,Z+1,107)
1240 Z=B
1250 A1=9
1260 A2=13
1270 A=20
1280 B=5
1290 C=0
1300 D=0
1310 E=32
1320 TI=TI-1
1330 CALL HCHAR(22,(TI/4),32)
1340 IF TI=19 THEN 1860
1350 CALL HCHAR(A,B,42)
1360 IF INT(TI/2)=TI/2 THEN 1370 ELSE 1420
1370 A2=A2+1
1380 IF A2=17 THEN 1470
1390 CALL COLOR(A2-1,8,8)
1400 CALL COLOR(A2,2,8)
1410 GOTO 1540
1420 A1=A1+1
1430 IF A1=13 THEN 1510
1440 CALL COLOR(A1-1,2,2)
1450 CALL COLOR(A1,11,2)
1460 GOTO 1540
1470 A2=13
1480 CALL COLOR(16,8,8)
1490 CALL COLOR(13,2,8)
1500 GOTO 1540
1510 A1=9
1520 CALL COLOR(12,2,2)
1530 CALL COLOR(9,11,2)
1540 REM  
1550 IF(A1*8+24=E)+(A2*8+24=E)THEN 1860
1560 CALL KEY(3,K,S)
1570 IF K=68 THEN 1610
1580 IF K=83 THEN 1640
1590 IF K=88 THEN 1670
1600 IF K=69 THEN 1700 ELSE 1320
1610 C=0
1620 D=1
1630 GOTO 1720
1640 C=0
1650 D=-1
1660 GO TO 1720
1670 C=1
1680 D=0
1690 GO TO 1720
1700 C=-1
1710 D=0
1720 A=A+C
1730 B=B+D
1740 CALL GCHAR(A,B,K)
1750 IF(A1*8+24=K)+(A2*8+24=K)THEN 1860
1760 IF K<95 THEN 1860
1770 IF(K=106)+(K=107)THEN 2040
1780 CALL HCHAR(A-C,B-D,E)
1790 CALL HCHAR(A,B,43)
1800 E=K
1810 IF K>127 THEN 1820 ELSE 1840
1820 CALL COLOR(2,16,8)
1830 GOTO 1320
1840 CALL COLOR(2,4,2)
1850 GOTO 1320
1860 CALL SOUND(100,440,1)
1870 CALL SOUND(100,330,1)
1880 CALL SOUND(100,220,1)
1890 CALL SOUND(100,110,1)
1900 IF(K=65)+(K=66)THEN 2190
1910 IF K<128 THEN 1920 ELSE 1940
1920 CALL HCHAR(A-C,B-D,122)
1930 GOTO 1950
1940 CALL HCHAR(A-C,B-D,146)
1950 CALL HCHAR(A,B,45)
1960 CALL SOUND(50,440,20)
1970 CALL HCHAR(A,B,41)
1980 CALL SOUND(50,220,20)
1990 CALL HCHAR(A,B,40)
2000 CALL SOUND(50,110,20)
2010 FOR K=1 TO 1000
2020 NEXT K
2030 GOTO 710
2040 CALL SOUND(-1000,130,10,260,10,520,10)
2050 P=P+10
2060 IF K=106 THEN 2070 ELSE 2090
2070 A=B
2080 GOTO 2100
2090 A=B-1
2100 CALL HCHAR(4,B,122)
2110 CALL HCHAR(2,A,91)
2120 CALL HCHAR(2,A+1,92)
2130 CALL HCHAR(3,A,93)
2140 CALL HCHAR(3,A+1,94)
2150 J=J+1
2160 CALL HCHAR(22,6,35,23)
2170 IF J=7 THEN 2270
2180 GOTO 1060
2190 CALL HCHAR(A-C,B-D,122)
2200 FOR K=1 TO 10
2210 CALL HCHAR(3,Z+1,66)
2220 CALL SOUND(10,-5,29)
2230 CALL HCHAR(3,Z+1,67)
2240 CALL SOUND(10,-6,10)
2250 NEXT K
2260 GOTO 2010
2270 FOR K=3 TO 13
2280 CALL SCREEN(K)
2290 NEXT K
2300 FOR K=1 TO 1000
2310 NEXT K
2320 CALL CLEAR
2330 CALL SCREEN(2)
2340 CALL COLOR(3,16,2)
2350 CALL COLOR(4,16,2)
2360 PRINT "         **********                  *        *                  *  HIJK  *         "
2370 P=P+1000
2380 PRINT "         *        *                  *  1000  *                  *        *         "
2390 PRINT "         *        *                  *  PQRS  *                  *        *  "
2400 PRINT "         * ";P;TAB(19);"*"
2410 PRINT "         *        *                  **********"
2420 PRINT : : : : : :
2430 FOR K=1 TO 2000
2440 NEXT K
2450 CALL CLEAR
2460 CALL SCREEN(2)
2470 CALL COLOR(4,3,2)
2480 GOTO 870
